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qu Ml Instrucciones. 
Tipos 


ASICAMENTE las ins- 
trucciones son con- 
juntos de caracteres 
que representan óÓr- 
denes de un lenguaje 
de programación y 
que se da a un orde- 
= nador para que eje- 
cute una o varias funciones u operacio- 
nes. 
Todas las instrucciones contienen dos 
partes fundamentales: 


— Código de operación. Indica a la 
Unidad de Control la operación que tie- 
ne que realizar. 


— Dirección de los operandos. Indica 
dónde están situados los datos que tiene 
que manejar para ejecutar la instrucción 
deseada. 

En cuanto al número de instrucciones 
que puede realizar un ordenador, varía 
de unos a otros. Esta colección de ope- 
raciones se denomina juego o repertorio 
de instrucciones. 

El número de instrucciones suele osci- 
lar entre unas 20 para ordenadores muy 
sencillos y unas 200 para los más poten- 
tes, aunque lo normal son 100. 

Los distintos tipos de instrucciones son 
los siguientes: 


— Instrucciones de tres direcciones. 


DIRECCION | DIRECCION 
CODIGO DE DEL DEL 


SEGUNDO 


DIRECCION 


OPERACION 


Instrucción de tres direcciones. 
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INSTRUCCIONES Y PROGRAMAS 


Como vemos en la figura, los campos 
intermedios indican las direcciones de 
memoria donde se encuentran almace- 
nados los operandos, y en el tercer cam- 
po se encuentra la dirección de dónde 
se almacenará el resultado de aplicar la 
operación indicada por el código de 
operación sobre ambos operandos. 


— Instrucciones de dos direcciones. 


DIRECCION 
CODIGO DE DIRECCION DEL 
SEGUNDO OPERANDO 


Y DEL RESULTADO 


OPERACION 


OPERANDO 


(0 A Instrucción de dos direcciones. 


En este caso sólo se indica la dirección 
del segundo y el tercer operando, ya 
que el resultado de operar sobre ellos se 
almacenará en la misma dirección don- 
de se encontraba el segundo; es decir, 
una vez realizada la operación no podre- 
mos recuperar el valor del segundo ope- 
rando, ya que habrá quedado «macha- 
cado» al introducir el resultado. 


— Instrucciones de una dirección. 


CODIGO DE DIRECCION DEL PRIMER 
OPERACION OPERANDO 
| A | Instrucción de una dirección. 


En los ordenadores que utilizan instruc- 
ciones con este formato se recurre a la 
utilización de registros internos en la má- 
quina que contendrán el valor del segun- 
do operando; de entre todos estos regis- 
tros el más importante es el llamado acu- 
mulador (registro especial de la Unidad 
Aritmético-Lógica). 


LEER FICHA 
PEDIDO DEL 
CLIENTE 


ES 
FICHA DE 
FINAL? 


ACCEDER 
FICHERO DE 
ARTICULOS 


LISTAR El 
FICHERO DE 
ARTICULOS 


ARTICULOS 
PEDIDOS 


LISTAR 
ARTICULOS LISTAR 
MULTIPLICAR PRECIOS QUE FALTAN VENTAS DEL 


ARTICULOS POR DIA 
CANTIDADES PEDIDAS 
CADA UNO 


FALTAN 
ACTUALIZAR TODOS? 


STOCK DE 
ARTICULOS 


ACUMULAR 
VENTA REALIZADA 
Y REGISTRAR 
PEDIDO 


ESCRIBIR 
FACTURA 


DOCUMENTO 
ORDEN DE 
SALIDA DEL 
PEDIDO 


ACTUALIZAR 
SITUACION DEL 
CLIENTE EN 
FICHERO CLIENTES 


[A] Organigrama simplificado de facturación. 
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— También existen las instrucciones 
de cero operandos, que no suelen utilizar- 
se para operaciones aritméticas. 

Podemos realizar otra clasificación de 
las instrucciones de acuerdo a la opera- 
ción que realizan: 


— Aritméticas. Suelen realizar las ope- 
raciones de suma y resta de operandos, 
aunque también hay veces que incluso 
pueden multiplicar y dividir. 


— De traslación. Se utilizan para reali- 
zar transferencias de información, es de- 
cir, pueden mover datos de un registro a 
memoria, de memoria al acumulador, 
etcétera. 


— De bifurcación. Sirven para romper 
la secuencia del programa. Dentro de 
este grupo podemos distinguir: 


— Condicionales. Sólo efectúa la bifur- 
cación sí se cumple una cierta condi- 
ción. 


— incondicionales. Se efectúa el salto 
a una instrucción almacenada en la me- 
moria sin dependencia de los hechos 
ocurridos en el programa. 


— De interrupción. Sirven para que el 
programa deje de ejecutarse. Por ejem- 
plo, la instrucción de fin de programa. 


— De entrada o salida. Se encargan 
del trasiego de los datos desde el orde- 
nador hacia los dispositivos periféricos o 
viceversa. 


ADD 

sub 
MULTIPLY 
DIVIDE 


Arliméicas 


MOVE Ac, Y 


Trasiación MOVE 


instrucciones 


Condicionalos 
incondicionales 
De interrupción 
De entrado /salida 


Bilurcación 


lA Clasificación de las instrucciones por el 
L==3 tipo de operación. 


Algoritmos 


Se llama algoritmo al conjunto de pa- 
sos necesarios para la resolución de un 
problema. A veces no se ve muy clara la 
diferencia entre algoritmo y programa, 
ya que ambos son descripciones detalla- 
das de los pasos para solucionar un pro- 
blema; sin embargo, en un caso (algorit- 


mo) el ordenador no puede ejecutar di- 
rectamente estos pasos; en el caso del 
programa sí son ejecutables por el orde- 
nador. 

Los algoritmos se pueden representar 
de tres formas distintas: 

— Mediante la descripción literal. 

— Detallando cada uno de los pasos 
para resolver el problema. 

— Mediante organigramas. 


l A Ejemplo de un programa seguido por orga- 
: nigrama. 


Organigramas 


Un organigrama es la representación 
gráfica de la secuencia de un programa, 
o de la resolución de un problema. Se uti- 
lizan no sólo en programación, sino tam- 
bién en cualquier tarea de la vida coti- 
diana. 

Hay dos tipos de organigramas: 

— Estáticos u organizacionales. Se 
suelen utilizar para representar la estruc- 
tura jerárquica de una empresa. 

— Dinámicos. Son representaciones 
gráficas del sistema del proceso de infor- 
mación y facilitan la labor de análisis. 
Dentro de este grupo se encuentran: 

— Los organigramas de sistemas. En 
los que se indican las entradas y salidas 
de información con sus soportes y archi- 
vOS. 

— Los ordinogramas u organigramas 
de programas. Representan con detalle 
los pasos necesarios para realizar el tra- 
bajo de programación. 


Ju Programas 


Un programa se puede definir como un 
conjunto de sentencias (incluyendo las 
de definición de datos y ejecución) que 
se ejecutan por un ordenador para resol- 
ver el problema. 


CLIENTE ESPECIAL 


1.T. COMPRAS 10.000 


|| == AAA 


| A Tabla de decisión. Otra técnica de ayuda 
3 a la programación. 


ID Estructura de los programas 


Realmente los programas se ejecutan 
en el ordenador de forma secuencial, 
unas instrucciones detrás de otras; sin 
embargo, hay veces en que no desea- 
mos que la instrucción que viene a con- 
tinuación sea la siguiente en ejecutarse. 
Para ello, como vimos antes, existen los 
llamados «saltos», que son instrucciones 


que hacen que se rompa la secuencia 
del programa, yendo a ejecutar instruc- 
ciones que se encuentran en otro lugar 
del programa. Los saltos pueden ser con- 
dicionales o incondicionales. 

Los bucles son estructuras del progra- 
ma que hacen que las instrucciones en- 
cerradas en ellos se ejecuten un número 
repetido de veces. El caso más interesan- 
te es cuando el bucle se controla me- 
diante un índice, el cual se modifica, en 
cada pasada, en una cantidad cons- 
tante. 

Una tercera estructura de programa 
consiste en la técnica de decisiones múl- 
tiples. Simboliza la posibilidad de elec- 
ción entre varios caminos. 


[1) Técnicas y documentación 
de los programas 


Una vez que el problema ha sido re- 
suelto por parte de los analistas, empie- 
zan a aparecer conceptos como: fiche- 
ros, cantidad, organizaciones, etc. Todo 
este conjunto de ideas informáticas que- 
da plasmado en lo que se denominan 
cuadernos de carga, que contienen la 
descripción detallada de toda la aplica- 
ción, y mediante los cuales los progra- 
madores realizan su tarea. 

La descripción de lo que es en sí cada 
programa se puede realizar mediante 
lenguaje natural, a modo de comenta- 
rios, o utilizando diagramas de bloques, 
tablas de decisión u organigramas. 


COMMODORE 64 


M Comandos 
de 
almacenamiento 


ON los comandos 
opuestos a los co- 
mandos de carga, es 
decir, se trata de al- 
macenar un número 
en la memoria desde 
uno de los registros 
de trabajo del proce- 
sador. Presentan el siguiente formato: 


STA 
STX 
sTY 


Están disponibles los mismos modos de 
direccionamiento, con excepción del di- 
reccionamiento inmediato, ya que siem- 
pre necesitamos una posición de memo- 
ria donde almacenar el contenido del re- 
gistro con el que estemos trabajando. Su 
equivalente en BASIC es la instrucción 
POKE. 

Una cuestión importante y diferencia- 
dora de los comandos de almacena- 
miento sobre los de carga es que con los 
primeros, que son los que estamos estu- 
diando ahora, no se alteran los flags del 
registro de estado del procesador, ya 
que lo único que se hace es transferir el 
valor desde el registro correspondiente a 
una posición de memoria. ¡Pero el regis- 
tro no se altera! 

A continuación se exponen los códigos 
de los comandos según los modos de di- 
reccionamiento utilizados. 
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Modos de direccionamiento Ejemplo 
Absoluto $8E | $8C|STASCOOO 
Zeropage S86 | $84|STXSFC 
Absoluto indexado por X — |STASCOO00,X 


Absoluto indexado por Y 
Zeropage indexado por X 
Zeropage indexado por Y 
Indirecto indexado en Y 
Indirecto indexado en X 


— |STA(SBB, X) 


Bueno, creo que ha llegado el momen- 
to de hacer algo en código máquina y 
así tomar un respiro en cuanto a teoría. 

Será algo muy sencillo y que puede 
que no sea de gran utilidad, pero al me- 
nos servirá para ilustrar lo que hemos vis- 
to hasta ahora. 

Vamos a intentar que aparezca en 
pantalla el letrero «COMMODORE 64», 

Para ello, lo primero que hacemos es 
cargar, por ejemplo, el ACU con el núme- 
ro correspondiente a la C, que, como 
puede verse en cualquier manual que 
presente un listado de los códigos de 
pantalla y códigos ASCII, tiene el valor 
67=543. 

A continuación almacenamos dicha 
letra en una posición de la memoria que 
esté dentro de la RAM de vídeo 
(1024-2023). 

Este proceso lo repetimos para todas 
las letras y habremos terminado. 

Si además quiere que el borde, fondo 
y dibujo, tengan un determinado color, 
basta con que altere el valor de las po- 
siciones de memoria; 


53280 = 5$D020 borde 
53281 = $D021 fondo 
646 = $0286 dibujo 


Al final debe quedar algo así: 


LDA $00 
STA $D020 
STA $DO21 
LDA ¿$01 
STA $0286 
LDA ¿$43 
LDX ¿34D 
LDY ¿$4F 
STA $05FO 
STY $05F1 
STX $05F2 
STX $05F3 
STY $054 
LDA 2944 
STA $05F5 
STY $05F6 
LDA 4$52 
STA $05F8 
LDA 4820 
LDX 4836 
LDY 4534 
STA $05F9 
STX $05FA 
STY $05FB 


No intente introducirlo tal y como está, 
pues no funcionaría con ese formato. 

Vamos a desglosar tan sólo la primera 
parte que pone borde y fondo de color 
negro, y dibujo de color blanco. El resto 
del programa, aunque es correcto, no se 
haría en la práctica así, ya que, como 
puede verse, todos los STA son posicio- 
nes consecutivas de memoria, y sería 
mucho más fácil y corto hacerlo median- 
te un bucle. Por tanto, lo dejaremos para 
cuando veamos los comandos de incre- 
mento y bifurcación. 


10 FOR A=49152 TO 49164 
20 READ B:POKE A,B 
30 NEXT 


Teclee este programa y ejecútelo con 
RUN. A continuación teclee en modo di- 


100 DATA 169,0,141,32,208,141,33,208,169,1,141,134,2 


. LDA $00 3A9 $00 
STA $D020 $8D $20 $DO 
STA $D021  $8D $21 $D0 
LDA ¿$01 $A9 $01 
STA $0286 $8D $86 $02 


Si tomamos los códigos de comando, 
nos quedaria la siguiente serie de núme- 
ros en hexadecimal: 


SA9, $00, $8D, $20, $D0, $8D, $21, $DO 
SA9, $01, $8D, $86, $02 


Haciendo la transformación a decimal 
se obtiene: 


169, 0, 141, 32, 208, 141, 33, 208, 169, 
1, 141, 134, 2 


Ahora ya sólo queda introducir estos 
datos consecutivamente a partir de una 
determinada posición de memoria, y lla- 
mar a la rutina con SYS. 

¿Dónde almacenar nuestra rutina en 
código máquina? 

Hay varias zonas en las que podríamos 
hacerlo, pero de momento vamos a res- 
tringirnos al área comprendida entre 
49152 = $C000 y 53247 = $CFFF, la cual 
representa 4 Kbytes, más que suficien- 
tes para un programa en lenguaje má- 
quina. 

He de decir que esta zona es área BA- 
SIC; por tanto , su rutina permanecerá ahí 
aunque borre su programa BASIC con 
NEW, ya que este comando, salvo que 
hayamos alterado ciertas variables en la 
página cero, «borrará» sólo desde la po- 
sición 2049=$0801 hasta 40959=$9FFF. 

Bueno, pues «guardemos» la rutina. 


recto SYS 49152 y verá cómo la pantalla 
se vuelve negra y el cursor blanco. Tam- 
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bién puede incluir una línea 40 SYS 
49152, y al teclear RUN producirá el mis- 
mo efecio. 

Una aclaración antes de terminar: 

—¿Qué ocurre cuando el procesador 
llega a la posición 49162? Pues que car- 
ga el contenido de la siguiente posición 
de memoria y la interpreta como un có- 
digo de comando, ya que nadie le ha di- 
cho que pare, que ya se ha terminado la 
rutina. Para comunicárselo debemos in- 
troducir el comando RTS al final de toda 
rutina en lenguaje máquina, que es equi- 
valente al comando RETURN en BASIC y 
cuyo código es 96 = $60. 


Así, pues, añadimos un «dato» más que 
es el número 96, modificamos el número 
49164 a 49165 en la línea 10 y todo arre- 
glado., 


IO Ensambladores y monitores 


Evidentemente no es necesario hacer 
todo el trabajo de buscar los códigos de 
los comandos con los que trabajamos, 
transferirlos al sistema decimal y crear un 
programa BASIC que los introduzca en 
memoria mediante sentencias READ y 
POKE. Para ello existen programas que 
aceptan los comandos que estamos 
aprendiendo y que se encargan de 
transformarlos para que puedan ser inter- 
pretados por el procesador. El programa 
que necesitamos es un «Assembler» y el 
lenguaje que nos ocupa es «enguaje en- 
samblador». 


Un «Assembler» suele ser una parte de 
un programa más grande llamado «Moni- 
tor» que consta de: 


— Assembler. 
— Disassembler. 
— Monitor. 


El Assembler ya hemos visto que sirve 
para que el ordenador entienda los co- 
mandos en lenguaje ensamblador. 


El Disassembler es el programa opues- 
to al anterior. Lee un programa que está 
en memoria y lo visualiza en la forma que 
estamos viendo (LDA, STA...). 

De la misma manera se pueden desen- 
samblar zonas de memoria que no sean 
necesariamente programas, como la pá- 


gina cero, el sistema operativo o el intér- 
prete BASIC. Es lo que suele decirse «ver 


las tripas del ordenador». 


El monitor propiamente dicho puede 
controlar los registros del procesador de 
manera directa, así como modificar la 
memoria, arrancar programas en Assem- 
bler y efectuar las operaciones de gra- 
bación y carga desde los periféricos. 


Además, suele tener una serie de co- 
mandos propios más o menos potentes, 
según el monitor del que se trate. 


Para finalizar este capítulo no estará de 
más el siguiente esquema general de la 
distribución de la memoria de su C-64. 


(1 Página cero. Ahí se encuentran los 
apuntadores BASIC así como algunas va- 
ríables del sistema. Hay algunas posicio- 
nes no utilizadas por el sistema y que le 
pueden servir para guardar datos prote- 
gidos por el comando NEW. Son las si- 
guientes: 2, 678-767, 820-827, 828-1023 
(siempre que no utilice el cassette) o 
2024-2039. 


(2) Resto de variables, con algunos 
registros libres que ya se han incluido en 
(DM). 1024-2023 RAM de vídeo (pantalla). 


(3) Area BASIC. 


(4) a.RAM que está solapada con la 
ROM del intérprete BASIC, Si desconecta- 
mos el intérprete podremos trabajar en 
esta zona, pero el ordenador ya no po- 
drá entender las palabras BASIC. 


(4) b. Interpretador BASIC. 


(5) Area libre. Es el lugar ideal, aun- 
que no el único, para guardar los progra- 
mas en lenguaje máquina. 


(6) a. Area libre pero solapada con la 
ROM de caracteres y la ROM de entra- 
da/salida. 

Para trabajar en esta zona habrá que 
desconectar las dos últimas. 

(6) b. ROM de caracteres. 

(6) Cc. Area de entrada/salida. 


(7) a. Area libre debajo de la ROM del 
sistema operativo. 


(7) b. Sistema operativo. 


40960 


494152 


53247 


57334 


65535 


EC 


Programa: 
Agenda 
telefónica 


STE programa, que ya 
apareció en su ver- 
sión para IBM en un 
tomo anterior, nos va 
a permitir la creación 
de nuestra propia 
agenda de teléfonos 
con los siguientes da- 


| FARA SALIR PULSE 'K” EN EL NOMERE 


EN ja 


AREENIpos MORTINES. Si NTES 
e 1 CASAS ESTE 
"E 


LEFOMO - e 


[A Información que podemos almacenar 
con este programa. 


Nombre de la persona. 
Apellidos de la persona. 
Dirección. 

Ciudad. 

Código postal. 

País. 

Número de teléfono. 


Con este programa podremos introdu- 
cir nuevas personas con su dirección y su 
teléfono, buscar datos sobre una de ellas 
y cambiarlos, buscar todas las personas 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD e DE GESTION + DE JUEGOS 


cuyo nombre empiece por una determi- 
nada letra, borrar a una persona y listar 
todas las personas por la impresora. 


Jaen Psgggna 


¿QUE ELIGES (1-6) ? 


| [REE 


Menú del programa con las distintas 
opciones que ofrece. 


Si queremos imprimir todas las perso- 
nas por impresora, podemos hacerlo de 
tres maneras: 


— Sólo el nombre. . 

— El nombre y el teléfono. ) 

— El nombre, la dirección y el teléfo- 
no. 


e ¿0yE QUIERES, PANTALLA O IMPRESORA (P-1> 


1: 
- NOMBRE, DIRKEC. Y TELE 


¿QUE OPCION QUIERES? 


[A Menú de impresión. 


El programa que se vio en la versión todos los demás ordenadores. No hay 
para IBM utilizaba ficheros de acceso di- que decir que el programa también fun- 
recto. Este utiliza ficheros secuenciales ciona en el IBM sin necesidad de realizar 
para que el programa pueda servir para ningún cambio. 


REM 
REM 
REM 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
ERM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
KEY 
CLS 


E AE EEES 


AGENDA TELEFONICA 


POR: PETER BERGMANN 


* 
* 
* 
k 
* 


XK XK AX 


AMOO JIJI 


VARIABLES 


ARRAY DE PERSONAS 
NOMBRE DEL FICHERO 
REPUESTA FICHERO NUEVO 
RESPUESTA (S/N) 

NUMERO DE REGISTROS 
OPCION DEL MENU 
CONTADORES 

APELLIDO Y NOMBRE : 
RESPUESTA PARA CONTINUAR* 
MANIPULADORES DE STRING * 
CONTADORES ho 
FLAG PARA REGISTROS 
NUMERO DE REGISTRO 
PUNTERO REGISTRO ARRIBA 
PUNTERO REGISTRO MEDIO 
PUNTERO REGISTRO ABAJO 
LETRA PARA BUSCAR 
NUMERO DE PAGINAS 
OPCION PANTALLA/IMPRES. 
OPCION DE IMPRESION 
NUMERO DE REGISTROS 


KAKAAKAKIIERIIAAS A IKIAA AAA AAA 
XK E KK KKIXKXXA*X 


E ETE 


EEE E EEES 


*X**k CABECERA *Xk 


OFF 


PRINT "aaa Odd da AAA 


FOR 


TI = 1 TO 19 


PRINT — "x*"; TAB(40); "+" 
NEXT I 
PRINT aaa olaaa loli ololojo 
LOCATE 8,12: PRINT "AGENDA TELEFONICA 
LOCATE 9,11: PRINT "- -- O 
LOCATE 12,7: PRINT "(c) Ed. Siglo Cultural, 1987" 


REM 


REM *** DECLARACION DE ARRAYS E INICIALIZACION Ax*kx* 


REM 


DIM T$(200,6) 
FOR 1 = 1 TO 200 
FOR J= 1 T06 


LET T$(1,J3) = " " 


NEXT J 
NEXT I 


REM - 

REM dodo Soo lololololokok 
REM * NOMBRE DEL FICHERO A USAR *x*x* 
REM Aaa aO Saa jROIOjolo oK 
REM 


eN PROGRAMAS 


1610 
1620 
16830 
1640 
1650 
1660 
1670 
1880 
1690 
1700 
1710 
1720 
1730 
1740 
.Ú 1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
a 2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 


CLS 

LOCATE 2,1: PRINT "(COMO SE LLAMA EL FICHERO "; 
INPUT F$ 

LOCATE 4,1: PRINT "EL NOMBRE ES ";F$ 
LOCATE 6,1: PRINT "(ES UN FICHERO NUEVO (S/N)"; 
INPUT N$ 

IF N$ = "N" THEN GOTO 1690 

IF N$ <> "S" THEN GOTO 1650 

LOCATE 8,1: PRINT "(ESTA CORRECTO (S/N)"”; 
INPUT M$ 

IF M$ = "N" THEN GOTO 1610 

IF M$ <> "S" THEN GOTO 1690 

EBT 1 =.0 

IF N$ = "Ss" THEN GOTO 1990 

REM 

REM Aaa Ojala aaa jaa jojalojok 
REM * LECTURA DEL FICHERO EXISTENTE * 
REM ASNO olaaa df jodo dk kok 
REM 

CLS 

PRINT "PON EL CASETE EN PLAY Y ...”" 
PRINT: PRINT 

PRINT "PULSA ENTER"; 

LET C$=INPUT$(1) 

CLS 

PRINT "LEYENDO EL FICHERO ";F$ 
OPEN F$ FOR INPUT AS +$1 

IF EOF(1) THEN GOTO 1930 

A E) 

FOR J = 1 TO 6 

LINE INPUT +$1, T$(1,J) 

NEXT J 

CLOSE +1 

CLS 

PRINT "FICHERO LEIDO" 

PRINT: PRINT 

PRINT "PULSA ENTER" 

LET C$=INPUT$(1) 

REM 

REM ASOMO aaa aldo lo lololokolok 

REM **k* "MENU xx 

REM AMOS loalajoK 

REM 

CLS 

LOCATE 3,18: PRINT "MENU” 

LOCATE 4,17: PRINT "----- e 

LOCATE 6,12: PRINT "1 - INTRODUCIR PERSONA" 
LOCATE 7,12: PRINT "2 - BUSCAR/CAMBIAR PERSONA" 
LOCATE 8,12: PRINT "3 - BUSQUEDA" 

LOCATE 9,12: PRINT "4 - BORRAR PERSONA” 
LOCATE 10,12: PRINT "5 - LISTAR TODAS" 
LOCATE 11,12: PRINT "6 - SALIR" 

LOCATE 14,1: PRINT "(QUE ELIGES (1-6) "; 
LET M=VAL(INPUT$(1)) 

IF (M< 1) OR (M > 6) GOTO 2030 

ON M GOSUB 2460, 3380, 3950, 4220, 3800, 2190 
GOTO 2040 

REM 

REM AS ASS SOS o ok 

REM * TERMINAR EL PROGRAMA x*x 

REM AAA dado okok 

REM 

LS 

PRINT "PREPARA EL CASETE PARA GRABAR Y ..." 
PRINT: PRINT 

PRINT "“PULSA ENTER” 

LET C$=INPUT$(1) 

CLS 

PRINT "GRABANDO EN EL FICHERO “;F$ 


2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 


25230 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 


OPEN F$ FOR OUTPUT AS $1 


FOR J 
IF 


NE 


= i TO 1 


T$(J,1) = " " THEN GOTO 2360 
FORK = 1706 
PRINT $1, TS$(J,K) 


XT K 


NEXT J 


CLOSE 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
KEY O 
END 
REM 


$1 


"INFORMACION GRABADA EN EL FICHERO ";F$ 


“ADIOS...” 
N 


REM MRS OOOO oooO 


INTRODUCIR PERSONA + 
REM MddE a laljololalalojojolek 


REM + 


REM 


13 
rro 


PRINT "PARA SALIR PULSE *X” EN EL NOMBRE" 


PRINT 


LINE 
IF W$ 
IF W3 
LINE 
GOSUB 
GOSUB 
IF X5$ 
LINE 
LINE 
LINE 
LINE 
LINE 
IF 1 
GOTO 
RETURI 
CLS 


TNPUT "NOMBRE 


"W3 


= "X" THEN GOTO 2670 
= "" THEN GOTO 2500 


INPUT "APELLIDOS: 
2730 

3240 

= "D" GOTO 2680 
INPUT "DIRECCION: 
INPUT "CIUDAD 
INPUT "CODIGO 
INPUT "PAIS 
INPUT "TELEFONO * 
= 201 THEN PRINT 
2500 
N 


ASES 


";T$(J,2) 
"5T35(J,3) 
"3TS(J3,4) 
"5 T$(J,5) 
";TS$(J, 6) 


"FICHERO LLENO": GOTO 2670 


PRINT "FICHA IGNORADA”; : INPUT C$ 


GOTO 
END 
REM 
REM x 
REM * 
REM * 
REM 
LET $ 
LET W 


LET W$ 


2460 


EEES 


ASSEMBLE KEY x 
MO dlliokoK 


$ doin 
$ = W3 + 53 
W$ + Es 


RETURN 


REM 

REM * 
REM * 
REM * 
REM 

LET $ 
LET L 
LET Q 
LET L 
LET Q 
LET YW 
LET E 


EEES 


DISECT KEY x 
ES 


SII 
LEN(S$) 
INSTR(S$ , 
L!-Q 

Q-1 

$ = LEFT$(5$,Q) 
$ = RIGHTS$(S$, L) 


nn ...n 


RETURN 


REM 


ep 


REM MS do loto K 
REM * FICHA YA EXISTENTE + 
REM aaa dolo dolo 


Ne PROGRAMAS 


2980 REM 

2990 LET X$ = "D" 

3000 REM 4 
3010 RETURN 

3020 REM 

3030 REM added lolo lololoolotor 

3040 REM * BUSCAR REGISTROS + 

3050 REM daa alaalolololojololoK: 

3060 REM 

3070 LET'X$ = "N" 


3080 IF (W$ < T$(1,1)) OR (1 = 0) THEN LET J = 1: GOTO 3220 
3090 IF W$ > T$(I,1) THEN LET J = I + 1: GOTO 3220 

3100 IF W$ = T$(1,1) THEN LET J = 1: GOSUB 2950: GOTO 3220 

3110 IF W$ = T$(I,1) THEN LET J = I: GOSUB 2950: GOTO 3220 


3120,LET JT = I ; 

3130 IF 1 > 0 THEN LET JM = INT((I+1)/2)-* 

3140 LET JB = 1 

3150 IF X$ <> "N" THEN GOTO 3210 

3160 IF W$ > T$(JM,1) THEN LET JB JM 

3170 IF A$ < T$(JM,1) THEN LET JT JM 

3180 IF W$ = T$(JM,1) THEN GOSUB 2950: GOTO 3210 
3190 LET JM = INT((JT + JB + 1)/2) 

3200 IF (JM = JT) OR (JM = JB) THEN LET X$ = "F" 
3210 LET J = JM 

3220 RETURN 

3230 REM 

3240 REM oO lola oIaolololoK 

3250 REM * INSERTAR NUEVO REGISTRO * 

3280 REM ASAS IolIOoIOlolOK 


no" 


3270 REM 

3280 GOSUB 3030 

3290 IF X$ = "D" THEN GOTO 3370 

3300 LET 1 = I +1 

3310 FOR K = 1 TO J STEP -1 

3320 FOR L = 1 706 . 
3330 LET T$(K,L) = T$(K-1,L) 

3340 NEXT L 

3350 NEXT K - 


3360 LET T$(J,1) = W$ 

3370 RETURN 

3380 REM 

3390 REM AdoIOOO ladilla lok 

3400 REM * LOCALIZAR PERSONA * 

3410 REM aaa lalalala jo ltok 

3420 REM 

3430 CLS 

3440 LOCATE 3,14: PRINT "LOCALIZAR PERSONA" 
SA 3450 LOCATE 5,1: PRINT "(NOMBRE 

3460 INPUT Ws 

3470 LOCATE 6,1: PRINT “(APELLIDOS: "; 

3480 INPUT E$ 

3490 GOSUB 2730 

3500 GOSUB 3030 

3510 CLS 

3520 IF X$ <> "D" THEN LOCATE 7,12: PRINT "FICHA NO ENCONTRADA": GOTO 3720 

3530 GOSUB 2820 

3540 LOCATE 2,2: PRINT "NOMBRE ";W$ 

3550 LOCATE 3, PRINT ” "¡ES + 

3560 LOCATE 4, PRINT "DIREC. ";T$(J,2) 

3570 LOCATE 5, PRINT "CIUDAD ";T$(J,3) 
3580 LOCATE 6, PRINT "CODIGO “;T$(J,4) 

Tes 
8, 


, 


3590 LOCATE PRINT “PAIS “5 TS$(J3,5) 

3600 LOCATE : PRINT "TELEF. ";T$(J,6) 

3610 IF M <> 2 THEN GOTO 3770 

3620 LOCATE 14,2: PRINT "(QUIERES CAMBIAR ESTA FICHA (S/N)"; 
3630 LET M$=INPUT$(1) 

3640 IF M$ = "2" THEN GOSUB 4490: GOTO 3530 

3650 IF M$ <> "N”" GOTO 3620 


NouUNNDNN 


3660 LOCATE 14,2: PRINT SPACE$(38) 

3670 LOCATE 14,2: PRINT "(QUIERES IMPRIMIR ESTA FICHA (S/N)"; 
3680 LET M$=INPUT$(1) 

3690 IF M$ = "S" THEN GOSUB 4640: GOTO 3710 
3700 IF M$ <> "N" GOTO 3660 

3710 LOCATE 14,2: PRINT SPACE$(38) 

3720 IF M <> 2 THEN GOTO 3770 

3730 LOCATE 14,2: PRINT "(BUSCAMOS MAS (S/N)"; 
3740 LET M$=INPUTS$(1) 

3750 IF M$ = "S" GOTO 3430 

3760 IF M$ <> "N" GOTO 3730 

3770 RETURN 

3780 REM 

3790 REM AdodadddloRo oK 

3800 REM * IMPRIMIR + 

3810 REM debo 

3820 REM 

3830 GOSUB 4760 

3840 LET P = 1 

3950. CLS 

3860 LOCATE 1,14: PRINT "LISTADO DE NOMBRES" 
3870 FOR J = 1 TO I 

3880 IF M <> 3 THEN GOSUB 5000 

3890 IF M= 3 THEN GOSUB 4150 

3900 NEXT J 

3910 PRINT 

3920 PRINT "PULSA ENTER" 

3930 LET C$=INPUT$(1) 

3940 RETURN 

3950 REM 

3960 REM ASNO 

3970 REM * BUSQUEDA POR UNA LETRA * 

3980 REM Assad jolla loldlokok 

3990 REM 

4000 CLS 

4010 LOCATE 2,12: PRINT "BUSQUEDA POR LETRA” 
4020 LOCATE 4,1: PRINT "PRIMERA LETRA DEL NOMBRE "; 
4030 INPUT H$ 

4040 CL5 

4050 LOCATE 2,16: PRINT "NOMBRES CON ";H$ 
4060 PRINT :PRINT 

4070 GOSUB 3870 

4080 PRINT : PRINT 

4090 PRINT "(BUSCAMOS MAS (S/N):"; 

4100 LET M$=INPUT$(1) 

4110 IF M$ = "S" THEN GOTO 3990 

4120 IF M$ <> "N" THEN GOTO 4090 

4130 RETURN 

4140 REM 

4150 REM MASAS Ojal lala lalola adlojoldjo lok 

4160 REM * CHEQUEAR PRIMERA LETRA * 

4170 REM AMS SOS Ojo ld alo jolololojojolok 

4180 REM 

4190 LET J$ = LEFT$(T$(J,1),1) 

4200 IF J$ = H$ THEN GOSUB 2820: PRINT W$;", ";E$ 
4210 RETURN 

4220 REM 

4230 REM AMARO OOOO lodo look 

4240 REM * BORRAR FICHA * 

4250 REM Adol dlololololojolok 

4260 REM 

4270 CL3 

4280 LOCATE 3,11: PRINT "BORRAR PERSONA” 
4290. GOSUB 3450 

4300 IF X$ = "D" THEN GOTO 4360 

4310 LOCATE 12,1: PRINT "(BORRAMOS MAS (S/N)"; 
4320 LET M$-INPUT$(1) 

4330 IF M$ = "S" GOTO 4270 


él PROGRAMAS 


4340 IF M$ <> “N" GOTO 4310 Lo 

4350 RETURN 

4360 LOCATE 14,2: PRINT "(ESTAS SEGURO (S/N)"; 
4370 INPUT M$ ; ; 

4380 IF M$ = "N" THEN CLS: GOTO 4310 

4390 IF M$ <> "S" THEN GOTO 4360 

4400 FOR K = J TO 1 

4410 FOR L = 1 TO 8 


4420 LET T$(K,L) = T$(K+1,L) 
4430 NEXT L 

4440 NEXT K 

4450 LET I= 1-1 

4460 CLS 


4470 LOCATE 4,12: PRINT "FICHA BORRADA!" 

4480 GOTO 4310 

4490 -REM 

4500 REM ASS SOS lOlollololoJoIOK 

4510 REM * CAMBIAR UN REGISTRO x* 

4520 REM ASS IO dolo lololokK 

4530 REM 

4540 LOCATE 14,2: PRINT SPACE$(38) 

4550 LOCATE 14,2: PRINT "(QUE QUIERES CAMBIAR (DICE ETA 
4560 LET M$=INPUT$(1) 


4570 IF M$ = "D" THEN LOCATE 4,9: LINE INPUT T$(J, 2) 
4580 IF M$ = "C" THEN LOCATE 5,9: LINE INPUT T$(J,3) 
4590 IF M$ = "Z" THEN LOCATE 6,9: LINE INPUT T$(J, 4) 
4600 IF M$ = "P" THEN LOCATE 7,9: LINE INPUT T$(J, 5) 
4610 IF M$ = "T" THEN LOCATE 8,9: LINE INPUT T$(J, 6) 
4620 CLS 

4630 RETURN 

4640 REM 


4650 REM AaoaoloiololoK k 

4660 REM * IMPRIMIR x 

4670 REM ASOOOSSOlOROoKHok 

4680 REM 

4690 GOSUB 5390 

4700 LPRINT W$;", "¡ES 

4710 LPRINT T$(J,2) 

4720 LPRINT T$(J3,3);"  ";TS(J,4) 

4730 LPRINT T$(J,5) 

4740 LPRINT T$(J,6) 

4750 RETURN 

4760 REM 

GTTO REM AMOO jodido lollololoKt 

4780 REM * PANTALLA O IMPRESORA x* 

4790 REM ARSS SO ldalolololalolololalokok 

4800 REM, 

4810 CLS : 
5 4820 LOCATE 2,1: PRINT “(QUE QUIERES, PANTALLA O IMPRESORA (P/1I)"; 

4830 LET G$=INPUT$(1) 

4840 IF (G$ <> "P") AND (G$ <> "I") THEN GOTO 49810 

4850 LOCATE 5,16: PRINT "OPCIONES" 

4860 LOCATE 6,15: PRINT "-=-=======- y 

4870 LOCATE 7,10: PRINT "1 - NOMBRE" 

4880 LOCATE 8,10: PRINT "2 - NOMBRE Y TELE" 

4890 LOCATE 9,10: PRINT "3 - NOMBRE, DIRREC. Y TELE" 

4900 LOCATE 12,1: PRINT "(QUE OPCION QUIERES"; 

4910 INPUT U 

4920 IF (U $ 1) OR (U > 3) THEN GOTO 4900 

4930 LOCATE 14,1: PRINT "(ESTAS SEGURO (S/N)"; 

4940 LET M$=INPUT$(1) 

4950 IF M$ = "N" THEN GOTO 4810 

4960 IF M$ <> "S" THEN GOTO 4930 

4970 LET N 0 

4980 IF G$ "I" THEN GOSUB 5390 

4990 RETURN 

5000 REM 

SO010 REM AaSRSOOSlO O IOld Olalla lolojokok 


n . 


5020 REM * IMPRESION EN PANTALLA x* 


5030 REM HARAN AO A 
5040 REM 
5050 GOSUB 2820 
5060 IF G$ = "I" THEN GOTO 5210 
5070 PRINT W3;", "; ES 
5080 1F U = 3 THEN PRINT T3(J,2): PRINT TS$(J,3);T3(J,4): PRINT T$(J,5) 
5090 IF U > 1 THEN PRINT T$(J,6) 
5100 PRINT 
5110 LETN =N + 1 
5120 IF (U = 1) AND (N/P = 10) THEN GOTO 5160 
5130 IF (U = 2) AND (N/P = 7) THEN GOTO 5160 
5140 IF (U = 3) AND (N/P = 3) THEN GOTO 5160 
5150 GOTO 5380 
5160 LET P =P +1 
5170 PRINT: PRINT "PULSA ENTER"; 
5180 LET C$ = INPUT$(1) 
5190 CLS sE 
5200 GOTO 5380 4 
5210 REM 
5220 REM AsMSOSOS SiS OOOO Kok 
5230 REM * IMPRIMIR EN IMPRESORA * 
5240 REM oooO dodo lolojokok 
5250 REM 
5260 LPRINT W$; ES 
5270 IF U = 3 THEN LPRINT T$(J,2): LPRINT T$(J,3),T8(J, 4): LPRINT T$(J,5) 
5280 IF U > 1 THEN LPRINT T$(J,6) 
5290 LPRINT 
5300 LET N =N + 1 
5310 IF (U = 1) AND (N/P = 30) THEN GOTO 5350 
5320 IF (U = 2) AND (N/P = 20) THEN GOTO 5350 
5330 IF (U= 3) AND (N/P = 10) THEN GOTO 5350 
5340 GOTO 5380 
5350 LET P =P +1 
5360 LPRINT CHR$(12) 
5370 CLS 
5380 RETURN 
5390 REM 
5400 REM AdMISdoOMOIS ISI laloldlo Jak 
5410 REM * PREPARA IMPRESORA * 
5420 REM AMAS ISSO IR OIlolOIook 
5430 REM 
5440 LPRINT CHR$(27)+CHR$(64) 
5450 CLS 
5460 LOCATE 2,1: PRINT “(QUIERES IMPRESION GRANDE O PEQUENA (G/P)”; 
5470 LET M$=INPUT$(1) 
5480 IF M$ = "P" THEN LPRINT CHR$(27)+CHR$(15) 
5490 IF M$ = "G" THEN LPRINT CHR$(18) 
5500 IF (M$ <> "P") AND (M$ <> "G") THEN GOTO 5450 
5510 CLS 
5520 LOCATE 2,1: PRINT “PREPARA.EL PAPEL Y PULSA RETURN"; 
5530 LET C$ = INPUTS$(1)' 
RETURN 


Para que el programa funcione en el 
COMMODORE, AMSTRAD y MSX hay que 
realizar los siguientes cambios: 


COMMODORE: 
1370 REM 


PRINT CHR$(147) 

POKE 214,7:POKE 211,11:PRINT “AGENDA TELE- 
FONICA” 

POKE 214,8:POKE 211,10: PRINT Uonmmmmmnn====<== jl 
POKE 214,11:POKE 211,6:PRINT “(c) Ed. Siglo 
Cultural, 1987” 

PRINT CHR$(147) 


20 PROGRAMAS 


1620 POKE 214,1:POKE 211,0:PRINT “COMO SE LLA- 
MA EL FICHERO" 

1640 sel 214,3:POKE 211,0:PRINT “EL NOMBRE 
ES”:F 

1650 POKE 214,5:POKE 211,0:PRINT “ES UN FICHERO 
NUEVO (S/N)"; 

1690 POKE 214,7:POKE 211,0:PRINT “ESTA CORREC- 
TO (S/N)": 

1800 PRINT CAR$(147) 

1840 GET C$:1F C$="" THEN GOTO 1840 

1850 PRINT CHR$(147) 

1870 OPEN 1,1,0,FS 

1880 INPUT41,| 

1890 FOR K=1 TO 1 

1925 NEXT K 

1930 CLOSE 1 

1980 GET C$:1F C$="" THEN GOTO 1980 

2040 PRINT CHR$(147) 

2050 POKE 214,2:POKE 211,17:PRINT “MENU" 

2060 POKE 214,3:POKE 211,16:PRINT “=o==" 

2070 POKE 214,5:POKE 211,11:PRINT “1 - INTRODU- 
CIR PERSONA” 

2080 POKE 214,6:POKE 211,11:PRINT “2 - BUS- 
CAR/CAMBIAR PERSONA” 

2090 POKE 214,7:POKE 211,11:PRINT “3 - BUSQUE- 
DA" 


2100 POKE 214,8:POKE 211,11:PRINT “4 - BORRAR 
PERSONA” 

2110 POKE 214,9:POKE 211,11:PRINT “5 - LISTAR TO- 
DAS" 

2120 POKE 214,10:POKE 211,11:PRINT “ó - SALIR" 

2130 POKE 214,13:POKE 211,0:PRINT “QUE ELIGES 
(1-6) *; 

2140 GET C$:1F C$="” THEN GOTO 2140 

2145 LET M=VAL(C$) 

2230 PRINT CHR$(147) 

2270 GET C$=:1F CS$"" THEN GOTO 2270 

2280 PRINT CHR$(147) 

2300 OPEN 1,1,1,F$ 

2305 PRINT 41,1 

2370 CLOSE 1 

2380 PRNT CHR$(147) 

2430 REM 

2500 PRINT CHR$(147) 

2680 PRINT CHR$(147) 

2880 FOR W1=1 TO LEN(S$) 

2882 IF MIDS(S5.W1,1)=" " THEN LET Q=W1:LET 
W1=LEN(S$) 

2884 NEXT WI 

3430 PRINT CHR$(147) 

3440 POKE 214,2:POKE 211,13:PRINT "LOCALIZAR 
PERSONA” 

3450 POKE 214,4:POKE 211,0:PRINT “NOMBRE : 

3470 POKE 214,5:POKE 211,0:PRINT “APELLIDOS * 

3510 PRINT CHR$(147) 

3520 IF X$<>"D” THEN POKE 214,6:POKE 
211,11:PRINT "FICHA NO ENCONTRADA”:GO- 
TO 3720 

3540 POKE 214,1:POKE 211,1:PRINT “NOMBRE ":W$ 

3550 POKE 214,2:POKE 211,1:PRINT “ "E 

3560 o 214,3:POKE 211,1:PRINT “DIREC. 
":15(J,2) 

3570 darbis 214,4:POKE 211,1:PRINT “CIUDAD 
":1S(J,3) 

3580 Le 214,5:POKE 211,1:PRINT “CODIGO 
"T$(J,4) 

3590 POKE 214,6:POKE 211,1:PRINT “PAIS ”:T$(,5) 

3600 POKE 214,7:POKE 211,1:PRINT “TELEF, ":T1$(J,6) 

3620 POKE 214,13:POKE 211,2:PRINT “QUIERES CAM- 


BIAR ESTA FICHA (5/N)"; 

3630 GET M$:IF M$="" THEN GOTO 3630 

3660 POKE 214,13:POKE 211,1:FOR Wl=1 TO 
38:PRINT “ "::NEXT W1 

3670 POKE 214,13:POKE 211,1:PRINT “QUIERES IM- 
PRIMIR ESTA FICHA (S/N)”; 

3680 GET M$:IF M$="" THEN GOTO 3680 

3710 POKE 214,13:POKE 211,1:FOR Wl=1 TO 
38:PRINT " "¡2 NEXT WI. 

3730 POKE214,13:POKE 211,1:PRINT “BUSCAMOS 
MAS (S/N)”; 

3740 GET M$:IF M$="" THEN GOTO 3740 

3850 PRINT CHR$(147) 

3860 POKE 214,0:POKE 211,13:PRINT “LISTADO DE 
NOMBRES” 

3865 OPEN 1,4:CMD 1 

3905 CLOSE | 

3930 GET C$:1F C$="" THEN GOTO 3930 

4000 PRINT CHR$(147) 

4010 POKE 214,1:POKE 211,11:PRINT “BUSQUEDA 
POR LETRA” 

4020 POKE 214,3:POKE 211,0:PRINT “PRIMERA LETRA 
DEL NOMBRE ”; 

4040 PRINT CHR$(147) 

4050 POKE 214,1:PÓKE 211,15:PRINT “NOMBRES 
CON ";H$ 

4100 GET M$:1F M$="" THEN GOTO 4100 

4270 PRINT CHR$(147) 

4280 POKE 214,2:POKE 211,10:PRINT “BORRAMOS 
PERSONA” 

4310 POKE 214,11:POKE 211,0:PRINT “BORRAMOS 
MAS (S/N)” 

4320 GET M$:1F M$="" THEN GOTO 4320 

4360 POKE 214,13:POKE 211, 1:PRINT "ESTAS SEGURO 
(S/N)” 

4380 IF M$="N" THEN PRINT CHR$(147):GOTO 4310 

4460 PRINT CHR$(147) 

4470 POKE 214,3:POKE 211,11:PRINT “FICHA BORRA- 
DA” 

4540 POKE 214,13:POKE 211,1:FOR Wl=1 TO 
38:PRINT “ "::NEXT WI 

4550 POKE 214,13:POKE 211,1:PRINT “QUE QUIERES 
CAMBIAR (D,C,Z,P,T)”; 

4560 GET M$:IF M$="" THÉN GOTO 4560 

4620 PRINT CHR$(147) 

4700 PRINT WS;", “:ES 

4710 PRINT T5(J,2) 

4720 PRINTTS(, 3); 

4730 PRINT T5(J,5) 

4740 PRINT TS(, FS 

4810 PRINT CHR$(147) 

4820 POKE 214,1:POKE 211,0:PRINT “QUE QUIERES 
PANTALLA 'O IMPRESORA (P/1)”; 

4830 GET G$:lF G$="" THEN GOTO 4830 

4850 POKE 214,4:POKE 211,15:PRINT "OPCIONES" 

4860 POKE 214,5:POKE 211,14:PRINT ""=acua--»=- 

4870 POKE 214,6:POKE 211,9:PRINT “1 - NOMBRE" 

4880 POKE 214,7:POKE 211,9:PRINT “2 - NOMBRE Y 
TELF." 

4890 POKE 214,8:POKE 211,9:PRINT “3 - NOMBRE, 
DIR. Y TELEF.” 

4900 POKE 214,11:POKE 211,0:PRINT “QUE OPCION 
QUIERES ”; 

4930 POKE 214,13:POKE 211,0:PRINT “ESTAS SEGURO 
(S/N)" 

4940 GET M$:IF M$="" THEN GOTO 4940 

5180 GET C$:1F C$="" THEN GOTO 5180 

5190 PRINTCHR$147) 

5260 PRINT WS;ES 


":T9(J,4) 


5270 IF U=3 THEN PRINT T5(J,2):PRINT TS(J,3), 
TS(3,4):PRINT TS(J,5) 

5280 IF U>1 THEN PRINT T$(J,6) 

5290 PRINT 

5360 PRINT CHR$(12) 

5370 PRINT CHR$(147) 

5440 REM 

5450 REM 

5460 REM 

5470 REM 

5480 REM 

5490 REM 

5500 REM 

5510 PRINT CHR$(147) 

5520 POKE 214,1:POKE 211,0:PRINT “PREPARA EL PA- 
PEL Y PULSA RETURN”; 

5530 GET C$:1F C$="" THEN GOTO 5530 


MSX: 


Sólo hay que cambiar de orden los ar- 
gumentos de todas las sentencias LOCA- 
TE. Si, por ejemplo, vemos la línea 2050 
que pone: 


2050 LOCATE 3,18:PRINT "MENU" 
nosotros tendremos que poner: 
2050 LOCATE 18,3:PRINT “MENU” 


AMSTRAD: 


Aparte de tener que cambiar el orden 
de todas las sentencias LOCATE tal y 
como se explica en las variaciones para 
MSX, hay que realizar los siguientes cam- 
bios: 


1870 OPENIN FS 

1880 IF EOF THEN GOTO 1930 

1910 LINE INPUT +£9,T5(1,J) 

1930 CLOSE 

2300 OPENOUT FS 

2340 PRINT 49,T$(J,10 

2370 CLOSE 

4700 PRINT 48,WS;", "¡ES 

4710 PRINT +8,T5(J,2) 

4720 PRINT +8,T5(J,3);" 

4730 PRINT 4+8,T5(J,5) 

4740 PRINT ++8,T5(J,6) 

5260 PRINT ++8,WS:ES 

5270 /F U=3 THEN PRINT 48,1$(J,2):PRINT 
+8,15(J,3),1$(J,4):PRINT ++8,15(J,5) 

5280 IF U>1 THEN PRINT ++8,T$(J,6) 

5290 PRINT +48 

5360 PRINT 4+8,CHR$(12) 

5440 REM 

5450 REM 

5460 REM 

5470 REM 

5480 REM 

5490 REM 

5500 REM 


"T5(J,4) 


O Programa: «El ahorcado» para 
SPECTRUM 


El programa que vamos a ver a conti- 
nuación es de todos conocido y a duras 
penas necesita de explicación. Este pro- 
grama está realizado en versión para 
SPECTRUM, ya que anteriormente apare- 
ció para otros ordenadores. 


Pantalla de presentación del programa 
«Ahorcado». 


Ñ 


El juego, en resumen, consiste en adivi- 
nar una palabra que ha pensado el or- 
denador. El usuario irá introduciendo las 
letras que él cree que pueden componer 
la palabra una a una. Si la letra es correc- 
ta, el ordenador la colocará en su sitio y 
si no lo es, restará uno al número de opor- 
tunidades que tiene el usuario para acer- 
tar la palabra. 


AHORCADO 


INTENTOS SE ACERTADAS= E 


E A A 
PULSA LA LGRA DESEADA 


[ A El programa en plena ejecución. 


El juego termina cuando el jugador ha 
acertado la palabra o cuando ha agota- 
do las oportunidades que se le ofrecen. 


BÍPROGRAMAS 


10 REM AaoialalOOdalalOjolololalojalojoloolok 

20 REM ak AHORCADO Ao 

30 REM 4444 dd de OK 

40 REM xx*xx* CARLOS DORAL Axkxxkx 

BO REM SSI OOO lolo lalo kk 

60 BORDER 7 

70 PAPER 7 

80 INK O 

90 CLS 

100 DIM a(20) 

110 PRINT AT 3,12; PAPER 2; INK 
7; BRIGHT 1; FLASH 1;"AHORCADO” 
120 PRINT AT 5,0;" Adivina la 
palabra que piensa el ordenador 
antes de que se te acaben las op 
ortunidades. ” 

130 LET a$=" INFORMATICA PAS 
O A PASO ys 

140 PRINT FLASH 1;AT 21,2;"PUL 
SA UNA TECLA PARA EMPEZAR" 

150 PRINT AT 10,0;a$ 

160 LET a$=a$(2 TO )+a$(1) 

170 FOR f=1 TO 10 

180 NEXT f 

190 IF INKEY$="" THEN GO TO 15 
o 

200 LET c=1 

210 LET bi=0 

220 CLS 

230 RANDOMIZE PEEK 23672 

240 LET rn=1+INT (RND*19) 

250 FOR f=1 TO 20 

260 IF a(f)=rn THEN GO TO 2 
40 

270 NEXT f 

280 LET a(rn)=rn 

290 LET da=730+(rnx10) 

295 RESTORE da 

300 READ a$ 

310 LET b$=a$ 

320 PRINT AT 0,12; BRIGHT 1; FL 
ASH 1; INK 1; PAPER 7;"AHORCADO" 
330 LET t=0 

340 LET b=0 

350 PRINT AT 5,2; FLASH 1;" x* A 
TENCION QUE EMPEZAMOS x*x " 

360 FOR f=1 TO 6 

370 BEEP .20,20 

380 NEXT f 

390 FOR f=5 TO 3+(LEN a$*x2) STE 
Pp Z 

400 PRINT'ATILO Le" 

410 NEXT £ 

420 PRINT AT 5,2; FLASH 0;" 

430 FOR w=1 TO LEN a$+4 

440 PRINT AT 2,0; "INTENTOS= 
“sw-1;" |ACERTADAS= “;b 

450 PRINT AT 12,5;"PULSA LA 
LETRA DESEADA” 

460 POKE 23658,8 

470 LET k$=INKEY$ 

480 IF CODE k$<65 OR CODE k$ 
>90 THEN GO TO 460 

490 PRINT AT 13,15; INVERSE 
1;k$ 

500 FOR f=1 TO LEN as$ 

510 IF k$=a$(f TO f) AND 


a$(f TO f)<>" " THEN PRINT AT 1 
0,3+(2*xf); OVER 1;k$: LET b=b+1: 
LET a$(f TO f)=" " 

520 NEXT f 

530 IF c=20 TBEN GO TO 1030 
540 IF b=LEN a$ THEN GO TO 
940 

550 FOR f=1 TO 20 

560 NEXT £ 

570 NEXT w 

580 PRINT FLASH 1;AT 15,2;"LO 
SIENTO, NO LA HAS ADIVINADO" 

590 FOR £f=50 TO O STEP -5 

600 BEEP .20,f 

610 NEXT f 

620 PRINT AT 17,3;"LA PALABRA E 
RA "; FLASH 1;b$ 

630 FOR f=1 TO 300 

640 NEXT f 

650 PRINT AT 20,2;" VAMOS A PO 
R OTRA (S/N) ? " 

6860 POKE 23658,8 

670 LET k$=INKEY$ 

680 IF k$="S" OR k$="s" THEN L 
ET c=c+1: GO TO 220 

690 IF k$="N" OR k$="n" THEN G 
O TO 1090 

700 GO TO 680 

710 REM AaolaloOlaaioIOlVIOIollOlolOlEIOIOIANK 
720 REM ADATAS DE LAS PALABRAS* 
1730 REM AMSSONSO SISSI joIlOjOloJok 
740 DATA "COMPUTER" 

750 DATA "VOLUMEN" 

760 DATA "BALONCESTO" 

770 DATA "DISCOTECA" 

780 DATA "INDESCOMP" 

790 DATA “VENTANUCO" 

800 DATA "BISMUTO" 

810 DATA "INSERTAR" 

820 DATA "ORBICULAR"” 

830 DATA "CUADRICEPS” 

840 DATA "ENSAMBLADOR” 

850 DATA “CALENDARIO” 

860 DATA “BOLIGRAFO” 

870 DATA "IMPOSIBLE" 

880 DATA "SABOTAJE" 

890 DATA "IZQUIERDA” 

900 DATA "DESPLAZAMIENTO" 

910 DATA "COMENTARIO" 

920 DATA "RANDOMIZE” 

930 DATA "TRIANGULO" 

940 REM asSlSlOINSISlO SOS lO lO lSlOIOJOJOJOJOK 
950 REM Axe ACERTADA ootololoK 
960 REM sado JojoJOlOlOJOK 
970 PRINT AT 20,2; FLASH 1;” MU 
Y BIEN,LA HAS ACERTADO !"” 

980 FOR f=1 TO 20 

990 BEEP .10,-50+INT (RNDx*x50 
) 

1000 NEXT f 

1010 LET bi=bi+1 

1020 GO TO 650 

1030 REM dsd ISSO lOlOlolOlololokok 
1040 REM aodookk FINAL oloolololok 
1050 REM ddRROISOIOlS Olla lOlolojojOlojoK 
1060 PRINT AT 20,1;"SE ME HAN AC 
ABADO LAS PALABRAS” 

1070 FOR f=1 TO 300 


1080 NEXT £f 

1090 CLS 

1100 PRINT AT 0,12; BRIGHT 1; FL 
ASH 1; INK 1; PAPER 7;" AHORCADO” 
1110 PRINT AT 4,3;"NUMERO DE PAL 
ABRAS= ";c 

1120 PRINT AT 6,3;"PALABRAS ACER 
TADAS= ";bi 

1130 PRINT AT 8,3;"PORCENTAJE AD 
IVINATORIO= "; INT ((bix*x100)/c);" 
yo 

1140 PRINT AT 20,2;"PULSA UNA TE 
CLA PARA EMPEZAR" 

1150 IF INKEY$<>"" THEN CLS : G 
O TO 110 

1160 GO TO 1150 


Al final del juego, el ordenador hace un 
balance del mismo y nos dice cuántas 
palabras hemos acertado. 


e AHORCADO 


HMUMERO DE PALABRAS= 2 
PALABRAS ACERTADAS= 1 
PORCENTAJE MRDIVINATORIO= 50% [1 


DON PLA UNA TECLA PARA EMPEZAR 


ÚÑ 
[A Resultados finales. 


DIAGRAMAS 


OS diagramas de pro- 
ceso (o diagramas 
de flujo) suponen un 
esquema sucinto y 
claro de los pasos su- 
cesivos que se darán 
en la aplicación, así 
como de los archivos 
ufllizados y, por tanto, de la evolución de 
los datos en el proceso. En la figura apa- 
rece un diagrama sencillo de proceso. En 
él se observan los símbolos normalmente 
utilizados en los diagramas: 


(=> Simbolo terminal. Indica el 


comienzo o final del proceso. 
Sólo se utiliza en la rama prin- 
cipal del programa, pues el 
resto de los procesos predefi- 
nidos tienen su comienzo en 
un punto de llamada (que vie- 
ne indicado por un conector) 
y su final en un punto de retor- 
es no (otro conector). 

Conector. Punio donde en- 
lazan las líneas de flujo que 
provienen de otros procesos. 
Normalmente suele estar al 
comienzo de un proceso. Es 
usual indicar en las líneas que 
llegan al conector el punto de 
donde provienen (proceso 
del que parten), así como la 
página donde parten), así 
como la página donde apare- 
ce este punto de origen (si el 
diagrama se extiende a lo lar- 
go de varias páginas, como 
es usual). 

Símbolo de decisión. Cuan- 
do la decisión a tomar es uni- 
a taria (sólo una condición sim- 
ple). De este punto parten va- 
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rias líneas de proceso alterna- 
tivas: la línea principal, que si- 
gue el diagrama y otras que 
van hacia otros puntos del 
diagrama. 

Proceso en general. Cuando 
el proceso es simple y queda 
claramente ¡identificado en 
este punto del diagrama. 

Proceso predefinido. Se da 
el nombre del proceso (o un 
mnemotécnico propio del 
diagrama). En otro lugar del 
diagrama deberá aparecer 
este proceso bajo el mismo 
nombre y con un punto de co- 
mienzo (o «punto de llama- 

da») y un punto de vuelta a la 
línea principal de proceso. 

En ocasiones hay puntos de la aplica- 
ción en los cuales se realizan varios pro- 
cesos sucesivos, o no se realizan, depen- 
diendo de un conjunto de condiciones a 
evaluar: en ese caso, aparece una es- 
tructura de proceso como la que se 
muestra en la figura, en el paso 2, que in- 
cluye una pequeña tabla (a modo de ta- 
bla de decisión) para decidir si los pasos 
1, 4, 6, se realizan o no, respectivamen- 
te. Usualmente se suelen tener en cuen- 
ta en el diseño de estos diagramas las si- 
guientes normas: 

a) Los mnemotécnicos utilizados de- 
ben ser claros y aludir a las actividades 
que realmente se realizan en el proceso 
al que dan nombre. 

b) Lareferencia del punto de entrada 
de donde viene el control se suele poner 
a la izquierda del simbolo de conexión; la 
referencia del punto al que se cede con- 
trol, debe estar a la derecha del conec- 


PASO 4 


PASO 2 


PASO 4 


tor (e incluyendo el número de página 
donde dicho punto de control sucesivo 
aparece). 

c) Todos los saltos de control dentro 
del programa deben estar claramente 
identificados mediante las oportunas re- 


ferencias; en todos los diagramas rela- | 


cionados deben aparecer las mismas re- 
ferencias. 

d) El nivel de detalle en el diagrama 
puede variar, y un elemento de proceso 
definido puede ser una operación ele- 
mental o una subrutina o un proceso 


GRABMAES ] 


Grabar P2 MAESTRO 


Grabar P1DET5 


Leer P2 MOV 
PASO 5 


PASO 4 Actualización 
Paso a otro 


(33 PASO 4 registro 
Emisión 


de informes 
(En) PASO 6 


Grabar P1 MAESTRO 


Leer P2MOV 


más amplio; por razones de coheren- 
cia, esimportante que, a lo largo de todo 
el diagrama, se mantenga el mismo nivel 
de detalle para los diferentes procesos 
referenciados. 

e) En los procesos predefinidos no 
hay que poner referencia alguna en el 
punto de entrada ni en el punto de sali- 
da, puesto que pueden ser llamados 
desde distintos procesos en la aplica- 
ción. El retorno se hace al punto donde 
fueron llamados. 

f En un conector debe procurarse 
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que las líneas que representan los cami- 
nos de acceso lleguen por la izquierda 
y/o por arriba. Las líneas de flujo de sali- 
da del conector partirán, preferiblemen- 
te, hacia la derecha y hacia abajo. Las 
referencias se anotarán siguiendo el mis- 
mo criterio. Al acabar una página, para 
seguir en la siguiente (o en la columna 
de la derecha si el diagrama se dibuja a 
dos columnas, como es usual) se pondrá 
un conector con sus referencias y símbo- 
los usuales. 

g) Las bifurcaciones por tomas de de- 
cisión se señalan preferiblemente me- 
diante el símbolo previsto para este tipo 
de acción, excepto si existen varias alter- 
nativas y se hace necesario poner una 


pequeña tabla para seleccionar los pa- 
sos adecuados. 


h) Las anotaciones complementarias 
y comentarios (incluidos en la caja 
correspondiente) se reducirán a lo estric- 
tamente imprescindible y se harán, si es 
necesario incluirlas, lo más concisas po- 
sible. 


¡) Cuando haya pasos de salida alter- 
nativos en un proceso, cada línea (repre- 
sentativa de uno de estos procesos alter- 
nativos) terminará en un conector hacia 
la derecha con la referencia de la rutina 
correspondiente. Esta rutina se reseñará 
aparte, aunque sea un solo proceso pre- 
definido o una actividad simple. 


STRICTAMENTE hablan- 
do, una expresión 
mixta es aquella que 
mezcla datos de ti- 
pos básicos diferen- 
tes (números con ca- 
racteres, números 
con datos lógicos, 
cólorak Pero en sentido más amplio 
puede aplicarse también este nombre a 
las expresiones donde aparecen mez- 
clados datos del mismo tipo básico (nu- 
mérico) pero de distinto tipo interno (da- 
tos enteros con reales, por ejemplo). 
¿Qué sucederá en estos casos? ¿Qué ac- 
ciones toma el traductor (compilador o 
intérprete) del lenguaje de programa- 
ción en que escribimos estas expresio- 
nes? Es importante saberlo, pues en caso 
contrario, los resultados pueden ser real- 
mente sorprendentes o imprevisibles. 

En un lenguaje como el APL, en el que 
la representación interna de los datos es 
invisible para el programador (puesto 
que externamente sólo existe el tipo nu- 
mérico, aunque los datos estén de hecho 
guardados en memoria en la forma más 
compacta posible) este problema no 
llega a producirse. También puede pres- 
cindirse de él en muchos intérpretes de 
BASIC, siempre que programemos utili- 
zando sólo una forma de representación 
interna (números en punto flotante en 
precisión normal), que es la opción por 
defecto, pero comienza a tener impor- 
tancia si encontramos problemas de 
ocupación de memoria o necesitamos 
una precisión mayor y hemos de mezclar 
distintos tipos numéricos en el mismo pro- 
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COMPATIBILIDAD DE TIPOS 


grama. En PASCAL, donde la mezcla de ti- 
pos es usual, el problema de la compoa- 
tibilidad de tipos es aún más acuciante. 


Sin embargo, la cosa no es tan mala 
como a primera vista pudiera parecer. 
Todos los intérpretes o compiladores de 
los lenguajes donde se presenta este 
tipo de problemas suelen aplicar un cor- 
to número de reglas que han sido diseña- 
das de tal manera que la compatibilidad 
de tipos sea lo más natural posible. En 
general, todo dato perteneciente a un 
tipo más restringido (como el entero) po- 
drá transformarse y operarse sin más con 
otro dato perteneciente a un tipo más 
amplio (como uno de los tipos en punto 
flotante). Los problemas suelen presen- 
tarse únicamente cuando deseamos 
asignarle un valor de tipo más amplio a 
una variable definida con un tipo más 
restingido. Pero de ésta ya hemos habla- 
do en el capítulo 10. La conversión de 
tipo en el lenguaje BASIC se realiza de la 
misma manera que se explicó en el ca- 
pítulo 10 para la asignación de valor, a 
saber: 


1. Al convertir de un tipo de precisión 
más baja a otro de precisión más alta (de 
entero a real en precisión sencilla o do- 
ble; de real en precisión sencilla a real 
en precisión doble) la conversión se rea- 
liza sin dificultades, añadiendo ceros de- 
cimales a la derecha del número a con- 
vertir. Por ejemplo, el dato de precisión 
sencilla 2.345678 se convertirá en preci- 
sión doble en 2.34567800000000. 

NOTA: Debido a que todas las formas 
de representación interna de los datos 
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numéricos en los ordenadores tienen 
cierto error intrínseco, este error se trans- 
mitirá también durante las conversiones 
de tipo. En el caso anterior, el número 
2.345678 podría no ser representable 
exactamente dentro del ordenador, Qui- 
zá aparezca (en precisión sencilla) 
como 2. 34567799. En tal caso, al conver- 
tirlo a precisión doble pasaría a ser 
2. 34567799000000. Pero también es po- 
sible que este número tampoco sea re- 
presentable con exactitud en precisión 
doble. En tal caso, el valor exacto que 
tendremos después de la conversión po- 
dría llegar a ser tan distinto del original 
como 2.34567799000001. 

2. Al convertir de un tipo de precisión 
más alta a otro de precisión más baja, se 
realiza un redondeo. Por ejemplo, si pa- 
samos a entero el número 2,34, se nos 
convertirá en 2. En cambio, el número 
2.67 se convertirá en 3. Por convenio, en 
casi todos los intérpretes BASIC, el núme- 
ro 2.5 (que está situado exactamente en 
el centro del intervalo) se redondea 
siempre por exceso. Es decir, se conver- 
tirá en 3. 

Las reglas utilizadas por los intérpretes 
de BASIC para las expresiones con mez- 
cla de tipos internos son las siguientes: 

1. Si la operación a realizar exige un 
tipo determinado, todos los datos a ope- 
rar se convertirán a dicho tipo antes de 
realizar la operación. 

2. Sila operación a realizar no exige 
un tipo determinado, todos los datos a 
operar se convertirán al tipo más amplio 
entre los presentes. 

Veamos algunos ejemplos de ambos 
casos. La operación «división entera» (re- 
presentada por el símbolo 1) exige el tipo 
entero para los datos a los que se apli- 
ca. Por tanto, si tratamos de ejecutarla 
con datos con decimales, éstos se redon- 
dearán a enteros antes de que la opera- 
ción se realice. 


10 X$=1514 
20 A=22X% 
30 Y%=26.9716.4 

40 PRINT X4sA3YZ% 


Veamos lo que ha ocurrido en este pro- 
grama: la linea 10 calcula la división en- 


18 de dos números enteros: 15 y 4. Todo 
está, por tanto, en orden. No hay que 
realizar conversión _alguna. El cociente 
entero de ambos números es 3 y éste es 
el valor que se le asigna a la variable X+, 
que está definida (por su nombre) como 
real en precisión doble. Por tanto, el va- 
lor entero 3 debe convertirse durante la 
asignación a este tipo, más preciso. Su- 
pondremos que el dato 3 puede repre- 
sentarse exactamente en la memoria del 
ordenador. El valor de X+ será, por tan- 
to, 3.00000000000000 (o, simplemente, 3). 


La línea 20 calcula la división entera 
del entero 22 y de la variable en preci- 
sión doble X+*. Esta última debe conver- 
tirse, por tanto, al tipo entero, redon- 
deando su valor si es necesario. Como 
éste era 3, no hace falta aplicar redon- 
deo alguno. El resultado será, de nuevo, 
el entero 3. Ahora hay que calcular el co- 
ciente entero de 22 entre 3, que resulta 
ser 7. Por último, hay que asignar este va- 
lor a la variable real en precisión simple 
A. Supondremos que 7, en precisión sim- 
ple, se convierte en 7.000000 (o, simple- 
mente, 7). 


La línea 30 calcula el cociente entero 
de dos números con decimales (expresa- 
dos, por tanto, en precisión simple). Es 
preciso convertirlos a enteros antes de 
realizar la operación. El primero (26.87) 
se redondea a 27. El segundo (6.6) se re- 
dondea a 7. Ahora dividimos 27 entre 7, 
obteniendo un cociente entero igual a 3. 
Por último, es preciso asignar este resul- 
tado a la: variable entera Y%. Aquí no hay 
convursión de tipos y la asignación pue- 
de realizarse directamente. 


Finalmente, la línea 40 escribe en la 
pantalla los valores de las tres variables. 
Podemos comprobar que son iguales a 
3,7 y 3, como acabamos de deducir. 


Veamos otro ejemplo. La operación 
«resto entero» (representada por la pa- 
labra reservada MOD) exige también el 
tipo entero para los datos a los que se 
aplica. Por tanto, el proceso a seguir será 
muy parecido al del ejemplo anterior. 


10 X=15 MOD 4 


20 A=22 MOD X4+ 
30 YX%=26.87 MOD 5.6 


40 PRINT XH5AzYZ 
RUN 


La explicación de los resultados obte- 
nidos es totalmente equivalente a la del 
caso de la división entera, por lo que ya 
no vamos a entrar en detalle. 

Veamos ahora un ejemplo de la utiliza- 
ción de operaciones que no exigen un 
tipo determinado en los datos a los que 
se aplican. Por ejemplo, la suma. 


10 X=15+4.5 
20 A=22+X%4 
30 Y/=26.987+b.4 
40 PRINT X4305Y% 
RUN 

19.5 41.5 33 


Veamos lo que ha ocurrido en este pro- 
grama: la línea 10 calcula la suma de un 
número entero (15) y otro real en preci- 
sión simple (4.5). Todos los datos deben 
convertirse al tipo de dato de más preci- 
sión (es decir, a reales en precisión sim- 
ple) antes de que la operación pueda 
realizarse. Por tanto, tendremos que su- 
mar 15.00000 y 4.500000, obteniendo el 
resultado 19.50000. Este es el valor que 
se le asigna a la variable X4+*, que es real 
en precisión doble. Por tanto, el valor 
real en precisión sencilla 19.5 debe con- 
vertirse durante la asignación a este tipo, 
más preciso. El valor de X4 será, por tan- 
to, 19.5000000000000 (o, simplemente, 
19.5). 

La línea 20 calcula la suma del entero 
22 y de la variable en precisión doble X+4. 
Por tanto, la operación va a efectuarse 
en precisión doble y el número entero 
deberá convertirse a este tipo 
(22.0000000000000). El resultado es el 
número en precisión doble 
41.5000000000000. Ahora hay que asig- 
nar este valor a la variable real en preci- 
sión simple A. Por tanto, habría que con- 
vertirlo a un tipo de precisión más 
baja, redondeándolo. Despreciando los 
errores de representación en memoria, 
dió 41.50000 (o, simplemente, 
41.5). 


La línea 30 calcula la suma de dos nú- 
meros con decimales expresados en pre- 
cisión simple. La operación se realiza, 
por tanto, en dicha precisión y no es pre- 
ciso realizar conversión alguna. El resul- 
tado es 33.47. Ahora es preciso asignar 
este resultado a la variable entera Y%. 
Por ello es preciso redondear 33.47 al en- 
tero más próximo, que es 33. 

Finalmente, la línea 40 escribe en la 
pantalla los valores de las tres variables. 
Podemos comprobar que son iguales a 
19.5, 41.5 y 33, como acabamos de de- 
ducir. 

Obsérvese cómo el resultado habría 
sido distinto si la conversión a entero se 
hubiera realizado antes de efectuar la 
operación. En tal caso, 26.87 se habría 
convertido en 27 y 6.6 en 7, con lo que 
su suma sería igual a 34. Si quisiéramos 
obtener dicho resultado, podríamos lo- 
grarlo con las siguientes instrucciones BA- 
SIC: 


10 A%=26.87 
20 B%=6.6 
30 YZ=A7+B% 
40 PRINT AZ3B%;YZ 
RUN 

27 7 34 


En este programa, los dos valores rea- 
les (26.87 y 6.6) se asignan primero a las 
dos variables enteras A% y B%, respecti- 
vamente. Se produce, por tanto, una 
conversión de tipo que redondea ambas 
a los valores 27 y 7. En la línea 30; las dos 
variables A% y B% (que ya eran enteras) 
se suman, y se asigna el resultado a la va- 
riable Y%, también entera. Así, pues, la 
operación se realiza directamente en el 
tipo entero y no es preciso realizar con- 
versión alguna. La suma de 27 y 7 da, 
como es natural, el resultado 34, que es 
el nuevo valor de la variable Y%. 

El tipo del resultado será, en general, 
el mismo que el de los datos con los que 
se opera, pero no siempre. La división 
con decimales, por ejemplo (representa- 
da con el símbolo / ) produce siempre un 
resultado en punto flotante, aunque los 
dos datos a los que se aplique sean en- 
teros. Por ejemplo: 


30 TECNICAS DE PROGRAMACIÓN 


10 A%=26.87 
20 B%=3.6 
40 PRINT AZ;B%3A%/BZ 
RUN 

27. 5 573 


En PASCAL, el problema de las conver- 
siones es menos acuciante, pues sólo 
hay dos tipos numéricos en lugar de tres: 
enteros. y reales. La conversión de entero 
a real no tiene problema, y se lleva a 
efecto automáticamente siempre que es 
necesaria. Para la conversión de real a 
entero, ya vimos en el capítulo 10 que los 
compiladores de PASCAL reconocen dos 
funciones básicas: TRUNC, que trunca 
siempre por defecto los valores reales a 
los que se aplica, y ROUND, que los re- 
dondea al entero más próximo. En gene- 
ral, si una operación exige los datos en 
el tipo entero (como en el caso de DIV y 
MOD), no podrá aplicarse nunca a datos 
del tipo real, pues el compilador genera- 
rá un mensaje de error. Es decir, al revés 


program test; 
var 
isj : integer; 
rss : real; 
begin 
is=round (2.5); 


ri=i div j; 
writeln(i,” 


que al ser ejecutado da el siguiente re- 


sultado: 


j:3=round (2.4999); 


*sj,” ?,round(2.5000001),”? ?*,r);5 


que en el BASIC, en PASCAL no hay redon- 
deo automático. Otra diferencia es que 
ROUND (2.5) es igual a 2. Es decir, el re- 
dondeo se hace en este caso por defec- 
to. 

Las operaciones aritméticas de PASCAL 
se realizan normalmente, cuando pue- 
den actuar con datos de varios tipos y se 
aplican a más de un dato, en el tipo del 
que tiene más precisión. Si los dos datos 
son enteros o reales, la operación se rea- 
lizará normalmente sin aplicarles conver- 
sión alguna. Si uno de ellos es entero y el 
otro real, el entero se convertirá automá- 
ticamente a real antes de realizar la ope- 
ración. En cuanto al resultado, pertene- 
cerá normalmente al tipo en que se rea- 
lizó la operación. La excepción es, tam- 
bién en PASCAL, la división de números 
reales (representada por el símbolo /), 
que convierte siempre sus datos al tipo 
real, aunque los dos fueran enteros ini- 
cialmente. 

Si deseamos realizar las operaciones 
DIV y MOD con datos reales, será preciso 
convertir éstos primero al tipo entero me- 
diante las funciones básicas TRUNC o 
ROUND. Por ejemplo: 


2 2 3 1.00000000000000E+000 


ID Hojas 


de cálculo. 
Multiplán 


L Multiplán es una de 
las hojas de cálculo 
de más difusión en el 
mercado actual. In- 
fluyen dos cosas de 
- forma determinante 
Mo enello. 


— Las versiones 
existentes para los distintos microordena- 
dores, que la convierten en una hoja de 
cálculo casi universal. 

— la gran facilidad para traspasar 
datos a otros programas permitiendo así 
combinar la versatilidad del Multiplán 
como hoja electrónica con las posibili- 
dades ofrecidas por programas de gráfi- 
cos, procesadores de textos, bases de 
datos, etc. 


Para acceder al programa basta intro- 
ducir las letras MP seguidas del número de 
columnas deseado para el monitor: 40 u 
80. En general se trabaja con MP80, ya 
que no todos los monitores admiten 
MP40. 

Aparece en el monitor la pantalla del 
Multiplán que consta de: 


— Retícula de filas y columnas. 

— Menú de comandos. 

— línea de explicación del comando. 

— Celda activa (sobre la que se en- 
cuentra el cursor o se está trabajando). 


— Volumen de la hoja de cálculo que : 


se encuentra sin ocupar. 

— Nombre de la hoja de cálculo: Por 
defecto toma el nombre de Temp, que 
significa que se trata de una hoja tempo- 
ral. 


APLICACIONES 


e 

IMUDATO: Alla Blan Clasif burec Háit Pormat Genera Modyo Impesmor Lamat 
Mor Homb Opcico Proteg Quitar Replsc Salir Pransí Valor Mlermo 

Seleceiooar opeioo o polsar anicial de mans 

me 1002 Libre EL Maltiplan: TEMP 


El menú de comandos hace de Multi- 
plán un programa de fácil aprendizaje; 
prácticamente sin manual usted puede 
llegar a conseguir realizar una hoja de 
trabajo, simplemente debe dejarse guiar 
por el menú. 


¡0 Movimiento por la hoja 


Para desplazarse por las celdas utilice 
las flechas de movimiento, éstas le per- 
mitirán pasar a la celda contigua. Si de- 
sea un movimiento más rápido, utilice las 
teclas Pg Up) y (Pg Dn), según quiera ir 
una página arriba o abajo. Para despla- 
zarse por el menú de comandos utilice 
las teclas de función F9 y F10. Si lo prefie- 
re, puede acceder al comando directa- 
mente pulsando la inicial del mismo. 

Dentro de los menús el desplazamien- 
to se realiza con los tabuladores. 


lO Comandos 


Vamos a ir viendo, uno a uno, los co- 
mandos que aparecen en el menú: 


32. APLICACIONES 


ALFA. Permite crear un literal en una 
celda. Creamos, por ejemplo, literales 
enR1C2,R1C3, y R1C4 para indicar ingre- 
sos, gastos y diferencia entre ambos, y en 


la columna 1 introducimos los motivos de 
dichos ingresos y gastos. 


Eu] 
EDITA; RC -2)-RC[-4) 


Introdacir frmla 
1 991 Libre ML Maltiplas: TD? 


BLAN. Rellena de blancos la celda o 
rango de celdas indicadas. 

CLASIF. Con este comando se puede 
ordenar de mayor a menor y por orden 
alfabético, bien por filas o por columnas. 
Si la fila o columna (permite, también, 
sólo una parte de la misma) es numérica, 
ordenará de mayor a menor o de menor 
a mayor el grupo de celdas especifica- 
das. Si se trata de celdas altanuméricas 
(literales), la ordenación creciente, de 
mayor a menor, supone una ordenación 
alfabética empezando por la A, y la de- 
creciente será un orden alfabético in- 
verso. ., 
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LIGMESOS GASTOS DIPERRACIA 


Iotroducir Lexto (gin comidas) 
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DIREC. Se utiliza para direccionar un 
nombre, un renglón o una columna. 

EDIT. Permite escribir fórmulas en una 
celda y editar el contenido para modifi- 
carlo. 


a 
CLASIPICAR por coloma: 4 entre los rengloces; 3 y Y ordea:lbIt 


Iotrodos1r nimero 
Bici 941 Libre ML. Maltiplan: TEMP 


FORMAT. Con diferentes opciones, este 
comando nos permite determinar el for- 
mato que deseemos para una celda o 
rango de celdas. Podremos variar atribu- 
tos tales como la longitud, si el conteni- 
do se pega a la derecha, centro O iz- 
quierda, tipo de decimales y número, ca- 
racteres especiales, si deben aparecer 
las fórmulas en pantalla o si están permi- 
tidos los puntos o no. 

Reformemos, por ejemplo, la longitud 
de la columna 1 para que el literal sus- 
cripción quepa entero en la celda. 

GENERA. Este comando genera renglo- 
nes o columnas en la posición indicada. 


Continuando con el ejemplo, generamos 
una línea encima de la 2 y otra entre la 
7 y la 8 para separar un poco las zonas. 
En la nueva fila 8, mediante el comando 
ALFA, rellenamos con guiones para sub- 
rayar. 


E 
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HOAYU. Nos permite acceder al com- 
pleto help que posee el Multiplán. 

IMPRIMIR. Con varias opciones adicio- 
nales es el comando que permite volcar 
la hoja de trabajo o una zona de ella en 
la impresora. Es muy importante la op- 
ción MARGENES, que mediante un co- 
mando adecuado de compresión permi- 
te aumentar el número de columnas en- 
viadas a la impresora. 

LIMIT. Es el comando que permite divi- 
dir la hoja en ventanas y crear limitado- 
res. Ejemplos de ventanas se verán en el 
siguiente fascículo. Creemos un limitador 
para nuestra hoja: 


3 50 

Y ALQUILER 

5 COLESIOS 

6 GASOLINA 

1 DIOJS 

D SUBSCAI PCIA 


MIBAPO: Aita Blan An Direc Bást Porma! Gevera Hokyo Imprimir Limit 
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Seleccionar opcion o pulsar 1alcral de mabdato 
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MOV. Con este comando se puede 
cambiar de lugar una columna o una fila, 
desapareciendo de su antigua posición. 

NOMB. Permite dar nombre a una cel- 
da o grupo de celdas, de forma que lue- 
go nos podemos referir a ella/s por su 
nombre (incluso en las fórmulas). 

OPCION. Permite anular la recalcula- 
ción automática de la hoja de cálculo, 
es muy útil cuando el volumen de la mis- 
ma es elevado, ya que cualquier modifi- 
cación en esas condiciones supondría 
tiempo de recalculación. Se recomienda, 
por tanto, desconectar RECALCULAR y co- 
nectarlo cuando todos los datos estén in- 
troducidos. 

En este comando se encuentra tam- 
bién la posibilidad de realizar iteraciones 
y poner alarmas para situaciones inde- 
seadas. 

PROTEG. Se utiliza para proteger las 
celdas. Una celda protegida no puede 
ser modificada. Se recomienda utilizarlo 
con las fórmulas, una vez comprobado y 
verificado su funcionamiento, para evitar 
que por un error se pierdan. 

QUITAR. Su misión es eliminar la celda 
o rango de celdas especificado, es por 
ello un comando algo peligroso. 

REPLICAR. Permite copiar el contenido 
de una celda/s a otra/s y copiar en ver- 
tical u horizontal el contenido de una cel- 
da. Es muy útil para las fórmulas. 

Como ejemplo vamos a copiar las lí- 
neas de guiones para completarlas y las 
fórmulas de diferencia. Introducimos las 
fórmular de total. 
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SALIR. Se utiliza para abandonar el Mul- 
tiplán. Antes de salir pregunta si está se- 


ki APLICACIONES 


guro con la intención de que si hay infor- 
mación nueva sin almacenar esta no se 
pierda. 


TRANSF. Con diferentes opciones, nos 
ofrece la posibilidad de almacenar la 
hoja de trabajo en el disco, cargar una 
hoja ya existente en él o almacenarlo 
como un fichero estándar. 


VALOR. Se utiliza para dar valores nu- 
méricos a las celdas. Si no damos ningún 
comando y directamente escribimos un 
número, Multiplán entiende que quere- 


mos dar valor a la celda activa asumien- 


,do el comando. 


XTERNO. Se utiliza para transferir datos 
de y a otros programas. 

Queda terminada la exposición de los 
comandos, cuyo funcionamiento, como 
puede verse, es bastante sencillo. Com- 
pruebe su funcionamiento e introduzca 
ejemplos, es el mejor modo de familiari- 
zarse con un programa. Multiplán no sólo 
es una hoja de cálculo de fácil manejo, 
es, además, una hoja potente y versátil, 
con posibilidades en cualquier campo. 


PASCAL 


Tipos notas del examen de Química de todo un 
um grupo de alumnos, etc. 
l a estructurados En PASCAL se pueden definir tipos de 
- de datos datos que a su vez se componen de otros 


tipos, para así poder:tratar con varios va- 
lores a la vez; son los llamados TIPOS ES- 
TRUCTURADOS. Vamos a ver a continua- 
ción el más común de ellos, el tipo ARRAY 
o tabla. 


¡m 


A) 


ODOS los tipos de da- 
tos vistos hasta el mo- 
mento sirven para 
manejar datos sim- 
ples: una variable de 
tipo INTEGER sólo pue- 
de tomar un valor en 
un momento dado, y 
lo mismo sucede con los tipos CHAR, Día- 


El tipo ARRAY 


DelaSemana y los demás que conoce- 
mos. 

Sin embargo, nos podría interesar guar- 
dar en una única variable el peso, la 


Supongamos por un momento que que- 
remos obtener la media de las notas de 
un examen y posteriormente obtener la 
nota más alta; primero deberíamos su- 


edad, la estatura y el nombre de una per- 
sona, o guardar en una sola variable las 


marlas todas y dividir el resultado por el 
numero de notas. Hariamos: 


program Notas; 


var 
Notal, NotaZ2, Nota3, 
Suma, Media, Maxima : real; 


begin 
writeln (* Introduzca las notas:”);3 
readin (Notal); 
readln (Nota2); 
readln (Notja3); 


(* Calculamos la suma: *) 
Suma:= 0.0; 
Suma:= Suma + Notal; 
Suma:= Suma + Nota2; 
Suma:= Suma + Nota3; 
(x Obtenemos la media: *) 
Media:= Suma / 3.0; 
writeln ("La nota media es”, ,Media:6:2); 


(k Ahora obtenemos la nota máxima %) 
Maxima:= 0.0; 

IF Notal > Maxima then Maxima:= Notal; 

IF Nota2 > Maxima then Maxima:= Nota2; 

IF Nota3 > Maxima then Maxima:= Nota3; 
writeln (*La nota más alta es”, ,Maxima:6:2); 


be PASCAL 


Es fácil imaginar cómo sería este pro- 
grama para calcular la media, no de 
tres, sino de cien notas. Si se pudiesen 
guardar todas en memoria como un gru- 
po y no cada una con su propia variable 
el programa sería mucho más sencillo. 

Las variables de tipo ARRAY permiten 
guardar en una sola de ellas muchos da- 
tos del mismo tipo. Es como si tuviésemos 
unha tabla con muchos valores registra- 
dos y para escoger uno de ellos dijéra- 
mos: «dame el primer valor de la tabla», 
o el quinto, o el tercero, etc. 

Para utilizar un elemento en concreto 
de la tabla se necesita, como es lógico, 
indicar cuál de ellos es, y esto se hace 
por medio de lo que se denomina INDICE. 

Este Índice podría ser un valor de tipo 
INTEGER, con lo que podríamos decir algo 
como «Guarda esto en el elemento nú- 
mero 5 de la tabla» o «Presenta en pan- 
talla el elemento número 2». 

Por tanto, al definir una variable del 
tipo ARRAY hay que indicar dos cosas: 


— Entre qué valores puede estar com- 
prendido el índice; en otras palabras, el 
subrango al que pertenece éste. 


— De qué tipo de elementos consta la 
tabla; podría ser una tabla de números 
enteros o reales, de caracteres, de varia- 
bles del tipo DiaDeLaSemana... 


Para ello se escribe en primer lugar la 
palabra reservada ARRAY seguida del sub- 
rango al que corresponda el índice 
puesto entre corchetes; tras ello se escri- 
be la palabra reservada OF seguida del 
tipo correspondiente a los elementos de 
la tabla. Por ejemplo: 


var Notas: array (1..100) of integer; 


así, la variable Notas sería una tabla de 
números de tipo INTEGER; los elementos 
de la tabla se escogerían indicándolo 
con un índice que podría estar compren- 
dido entre 1 y 100. De esta manera, ten- 
dríamos el elemento número 1 de la ta- 
bla, el 2, etc., hasta el 100, osea, 100 ele- 
mentos en total. 

Como hemos visto en otras ocasiones, 
puede ser más conveniente no definir la 
variable sobre la marcha y escribir: 


type 

Notas. = array (1..100) of integer; 
var 

NotasClase!1, NotasClase2: Notas....t; 


o, incluso: 


type 
Indice...t = 1,.100; 
Notas...i = array (Indice...t)] of Ínte- 
gor; 
var 
MotasClase1, NotasClase2: Notas....t; 


Para indicar el elemento de la tabla 
que se desea utilizar se escribe el nom- 
bre de ésta seguido de una constante, 
variable o expresión que proporcione el 
valor del índice, puesta entre corchetes: 


(" Escribe el doble del E 
(" elemento 1 de la tabla: ”) 


write (Notas(1)] * 2); 


(" Guarda 7 en el elemento *”) 
( 100 de la tabla: " 


Notas (50 * 2): 7; 


Los elementos así especificados son 
del tipo constitutivo del ARRAY; en el 
ejemplo serían, pues, del tipo INTEGER y 
por tanto se podrían utilizar exactamen- 
te igual que cualquier otra variable INTE- 
GER. 

Si nuestro ordenador no dispone de los 
corchetes en su juego de caracteres, se 
pueden utilizar en su lugar las parejas 


(. y .): 


Notas (.5.):= 3; 


No se pueden comparar variables de 
tipo ARRAY entre sí, pues no tendría sen- 
tido, ni hacer operaciones con ellas to- 
madas en su conjunto. La única opera- 


ción posible con todos los elementos de 
un ARRAY a la vez es la asignación: 


NotasClase1:= NotasClase2; 


esto guardaría todos los valores de la ta- 
bla NotasClase2 en la tabla NotasClase 1, 
es decir, el elemento 1 de NotasClase2 
en el 1 de NotasClasel, el 2 en el 2, etc. 

Hay que hacer notar que el número de 
elementos de la tabla queda definido 
por el subrango del índice, que es fijo. Si 
al escribir el programa especificamos, 
por ejemplo, 21..30, la tabla tendrá 10 
elementos y esto no podrá ser cambiado 
durante la ejecución del programa. 

Si quisiéramos preparar el programa 
Notas para funcionar con una tabla en lu- 


program NotasMejor; 


const 
Tope= 100; 
1 


type 
Indice_t = 1..Tope; 


Notas_t = array [Indice_tJl of real; 
(kx Las notas pueden tener decimales, 


var 
Notas : Notas_t; 
Suma, Media, Maxima : real; 
Indice, Total : Indice_t; 


begin 


gar de con una variable distinta para 
cada nota, pondríamos en principio: 


writeln (“Introduzca las notas:”); 
readin (Notas( 1)); 
readin (Notas(2)); 
readin (Notas(3)); 


con lo que, ciertamente, se gana poco. 
Sin embargo, como el índice puede ser 
una variable, el paquete de instruccio- 
nes READLN se puede sustituir por un bu- 
cle FOR en que la variable de control se 
utilice como índice, y lo mismo sucede 
para las demás instrucciones que se repi- 
ten. 

Estamos ya en condiciones de hacer 
un programa de medias mejorado; 


(x Como mucho podrá haber 100 notas Xx) 


de ahí el tipo REAL 1%) 


writeln (*El máximo número de notas es ”,Tope); 
write (”Cuantas notas ? ”); readlin (Total); 


(kx Vamos a leer las notas tecleadas %*) 


for Indice:= 1 to Total do 
begin 


write ("Nota número *,Indice,” 


readln (Notasf[indicelJ) 


”)3 


(X Como un REAL se puede leer de teclado,  *X) 


(Xx los elementos de NOTAS también. 


end; 


Suma:= 0.0; 


(* Vamos acumulando notas en Suma: 


x) 


x) 


for Indice:= 1 to Total do Suma:= Suma + Notas [Iindicel; 


(kx Ahora calculamos la media %) 


Media:= Suma / Total; 


writeln ("La nota media es”*,Media:6:2); 


(k Ahora obtenemos la nota máxima %) 


Maxima:= 0.05 
for Indice:= 1 to Total do 


if Notas C[Iindicel > Maxima then Maxima(*por ahora*x):= Notas [IndiceJ; 
writeln (”La nota más alta es”, ,Maxima:6:2); 


end. 


E PASCAL 


Como se ve, en lugar de utilizar una ins- 
trucción para cada nota se han utilizado 
bucles FOR, pues las instrucciones se re- 
piten un número fijo de veces. Además, 
se ha descrito el subrango del índice pre- 
viamente para así no tener que repetirlo 
con Indice y Total. Nótese también dón- 
de se ha puesto uno de los comentarios: 
recordemos que se pueden poner co- 


program MasterMind; 


type 
Combi_t = array [1..41 of integer; 


var 
Aleatorio : real; 


Secreta, 


Combi _t;5 
Muertos, 
Heridos, 
Limite, 
Indice : integer; 


procedure ArrancaAzar; 


var Ok: boolean; 
begin 

repeat 

readln (Aleatorio)3 


until Ok 


function Azar (Inf,Sup: 


var A: 
begin 


real; 


procedure Analizar; 
(x Compara Secreta con Intento y da 


var 
Copia: Combi_t; 
1, J : integer; 
begin 


Copia:= Secreta; 


Muertos:= 0; 

for l:= 1 to 4 do 
if Intento (11 = Copia [1] then 

begin 

Muertos:= Muertos + 1; 
Intento [1l1l:= -1; 

Copia [11 := -2 

end; 


Heridos:= 0; 
for l:= 1 to 4 do 


begin 
Heridos:= Heridos + 1; 
Intento [1Il:= -1; 


(k Para guardar la clave secreta X) 
Intento: (k Para guardar cada intento x) 


(kx Pide el primer número de la serie aleatoria *) 


writeln (”Teclee un número entre O y 1, ambos exclusive.”); 


Okz= (0.0 < Aleatorio) and (Aleatorio < 1.0); 
if not Ok then writeln ("No vale. Repita.”) ¿ 


integer): integer; 
(x proporciona un número entero aleatorio * 
x entre Inf y Sup, ambos inclusive 


Aleatorio:= frac (Aleatorio k 997); 
Azarz= Inf + trunc (Aleatorio *X (Sup - Inf + 1)) 


% el valor adecuado a Muertos y Heridos. %) 


(k Saca una copia de la clave secreta: *) 


(X mira las 4 cifras de Intento: X) 


mentarios en cualquier lugar en que pue- 
da ir un espacio en blanco. 
Para terminar por ahora, vamos a mo- 


- dificar el programa del Master Mind que 


hicimos en el número anterior utilizando 
tablas de cuatro enteros para guardar 
las combinaciones y aprovechando las 
ventajas que esto nos brinda para hacer 
el análisis de una manera más elegante: 


(Xx ¡OJO! x%) 


for J:= 1 to 4 do (%* compara Intento [13 con Copia X) 
if Intento [11 = Copia [JJ then 


Arrancabzar; 


readln (Limite); 


writeln; 


repeat 
write ("Clave: ?)3 


Analizar; 


writeln (” 
until Muertos = 4; 


writeln; 


readln (Letra) 


Compare el lector este programa con 
la versión anterior. Al hacerse la búsque- 
da de heridos utilizando un bucle FOR 
dentro de otro, se compara Copia(1) con 
Intento(1), Copia(2) con Intento(2), etc., 
lo cual es incorrecto; no obstante, si se 
diera alguna igualdad entre ellos, ya se 


Copia [JJ := -2 
nd 


a y) 


write ("Números del 1 al...”); 


ClrScr; (% o PAGE, para borrar la pantalla k) 
writeln ("Tras cada Cifra, pulse Intro.”); 


tor Indice:= 1 to 4 do read (Intento [Indicel); 
m=” Muertos,” 
write (”¿ Desea otra partida ? (S/N)  ”?); 


until (Letra = ?*N”*) or (Letra = *n” 


(kX repetir partidas %) 
(k Primero, inventarse una, clave: %) 
for Indice:= 1 to 4 do Secreta [Indicel:= Azar (1, 


Limite); 


(kx Pedir y analizar combinaciones: %*) 


h=",Heridos) 


habría detectado al mirarse los muertos, 
por lo que estarían «tachados» y nunca 
podrían ser iguales al mirarse los heridos, 
así que no pasa nada. 

Como ejercicio, pruebe el lector a ha- 
cer variable el número de cifras con que 
se juega en lugar de que sea siempre 
cuatro. 


qu Utilización 
de la 

biblioteca 

del C: funciones 

de entrada salida 


| deseamos utilizar 
una función de la bi- 
blioteca en nuestro 
programa fuente, de- 
beremos emplear la 
línea «*include 
<stdio.h >» 

4 Include <stdio.h> 
se emplea para que todo archivo fuente 
pueda utilizar las funciones de la biblio- 
teca. El fichero <studi.h> contiene ma- 
cros y variables utilizadas por la biblio- 
teca. 


(u Función para abrir ficheros 


La función utilizada para la apertura de 
ficheros es «fopen()»: 


FILE “topen() 


La función «fopen()» devolverá un valor 
«NULL» en caso de que le sea imposible 
abrir el fichero. 


¡O Más funciones de E/S 


Si tenemos que leer un carácter del dis- 
positivo de entrada lo haremos a traves 
de la función: 


getc() 


Si deseamos enviar un carácter a un fi- 
chero apuntado por el puntero «pun- 
tarch», deberemos emplear «putc()» de 
la siguiente forma: 


puich (ch, puntarch) 


OTROS LENGUAJES 


LENGUAJE C: FUNCIONES 


Tanto «get()»» como «put()» se utilizan 
sólo para ficheros de texto. 

Para cerrar un fichero utilizaremos la 
función: 


fclose() 


Para cerrar el fichero apuntado por 
«puntarch» escribiremos: 


fclose (puntarch); 


¡O Ficheros estándar 


Los tres ficheros estándar en C son: 
«stdin», «sidout», «stdlerr» 


Los tres ficheros son abiertos antes de 
«llamarse» a la función «main()». Estos tres 


archivos se denominan «entrada están- 


dar», «salida estándar» y «salida estándar 
errores». 


[| Salidas y entradas 
- con formatos 


Las funciones básicas para la salida y 
entrada con formatos son: 


printtO) y scant() 


La función «printf()» nos permite conver- 
tir, dar formato e imprimir en el dispositi- 
vo de salida estándar una serie de argu- 
mentos definidos en la función, bajo el 
control del «parámetro de control». 

La sintaxis utilizada será: 

printf (argumento de control, argumen- 
to 1, argumento 2,...) 


El parámetro de control establece dos 
tipos de salida: por una parte, los carac- 
teres ordinarios que simplemente se co- 
pian a la salida estándar y, por otra, las 
«especificaciones de conversión» que 
origina la impresión de los argumentos. 
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